home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 July: Mac OS SDK / Dev.CD Jul 96 SDK / Dev.CD Jul 96 SDK1.toast / Development Kits (Disc 1) / OpenDoc / OpenDoc Development / Debugging Support / OpenDoc Source Code / Messaging / OSL / OSLDspse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-04-22  |  5.6 KB  |  225 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        OSLDspse.c (Orignal name: OSLDispose.c)
  3.  
  4.     Contains:    
  5.  
  6.     Owned by:    Nick Pilch
  7.  
  8.     Copyright:    © 1993 - 1995 by Apple Computer, Inc., all rights reserved.
  9.  
  10.     Change History (most recent first):
  11.  
  12.          <4>     6/23/95    NP        125932: Call system handlers if app
  13.                                     handlers fail.
  14.          <3>     1/12/95    jpa        Don't use obsolete Toolbox names [1211211]
  15.          <2>     8/19/94    NP        1181622: Ownership fix.
  16.          <7>      5/2/94    eeh        bug #1160654: various PPC native changes
  17.          <6>    10/18/93    NP        Added DisposeTokenProc callback support for
  18.                                     OpenDoc.
  19.          <5>     8/16/93    NP        Adjusted for latest OSL proposal.
  20.          <4>     7/29/93    NP        Added missing return value for
  21.                                     OLSDisposeToken.
  22.          <3>     7/28/93    NP        Mods for new token type, OSLToken.
  23.          <2>     7/21/93    NP        Fixed #includes.
  24.          <1>     7/21/93    NP        first checked in
  25.  
  26.     To Do:
  27.     In Progress:
  28. */
  29.  
  30. /*                                            
  31.     ©Apple Computer, Inc.  1992         
  32.           All Rights Reserved.                
  33.     Author: Eric House
  34.                                             */
  35. #ifndef __MIXEDMODE__
  36. #include <MixedMode.h>
  37. #endif
  38.  
  39. #ifndef _OSLPRIV_
  40. #include "OSLPriv.h"
  41. #endif
  42.  
  43. #pragma segment AEObjSuppt
  44.  
  45. // ———————————————————————— InternalDisposeToken ————————————————————————
  46.  
  47.         // disposes of OSLTokens without calling app's dispose token routine
  48.  
  49. pascal OSErr
  50. InternalDisposeToken( OSLToken* token )
  51. {
  52.     return AEDisposeDesc(token);
  53. }
  54.  
  55. // ———————————————————————— DisposeCompEvnt ————————————————————————
  56.  
  57.         // disposes of CompEvnt Handles
  58.  
  59. static void
  60. DisposeCompEvnt( CompareEvent c )
  61. {
  62.     if ( c != NULL )
  63.     {
  64.         IgnoreOSErr( AEDisposeDesc( &(*c)->theCompEvtInput )) ;
  65.         IgnoreOSErr( AEDisposeDesc( &(*c)->eventWParams ) ) ;
  66.         DisposeHandle((Handle)c ) ;
  67.     }
  68. } // DisposeCompEvnt
  69.  
  70.     /*———————————————————————— DisposeCompare ————————————————————————*/
  71.  
  72.         /*disposes of comparison Handles*/
  73. void
  74. DisposeCompare( Comparison c )
  75. {
  76.     if ( c != NULL )
  77.     {
  78.         IgnoreOSErr( AEDisposeDesc( &(*c)->theCompInput )) ;
  79.         DisposeObj( (*c)->obj1 ) ;
  80.         DisposeObj( (*c)->obj2 );
  81.         DisposeHandle((Handle)c ) ;
  82.     }
  83. } // DisposeCompare
  84.  
  85.     /*———————————————————————— DisposeLogical ————————————————————————*/
  86.  
  87. void
  88. DisposeLogical( Logical l )
  89. {
  90.     if ( l != NULL )
  91.     {
  92.         IgnoreOSErr( AEDisposeDesc( &(*l)->theLogicalInput ) ) ;
  93.         DisposeTerm( (*l)->firstTerm ) ;
  94.         DisposeHandle( (Handle)l ) ;
  95.     }
  96. } 
  97.  
  98.         
  99.     /*———————————————————————— DisposeTerm ————————————————————————*/
  100.  
  101. void
  102. DisposeTerm( Term t )
  103. /*disposes of test term Handles*/
  104.  
  105. {
  106.     if ( t != NULL )
  107.     {
  108.         DisposeTerm( (*t)->next ) ;
  109.         IgnoreOSErr( AEDisposeDesc( &(*t)->theTermInput ) ) ;
  110.  
  111.         switch ( (*t)->ttype )
  112.         {
  113.             case kCompare :
  114.                 DisposeCompare( (Comparison)(*t)->u.compar ) ;
  115.                 break ;
  116.             case kCompareEvt :
  117.                 DisposeCompEvnt( (CompareEvent)(*t)->u.cEvt ) ;
  118.                 break ;
  119.             case kLogical :
  120.                 DisposeLogical( (Logical)(*t)->u.log ) ;
  121.                 break ;
  122.         }
  123.             
  124.         DisposeHandle( (Handle)t ) ;
  125.     }
  126. } /*DisposeTerm*/
  127.  
  128.  
  129.     /*———————————————————————— DisposeWhose ————————————————————————*/
  130.  
  131. void
  132. DisposeWhose( Whose w )
  133.     /*disposes of Whose Handles*/
  134. { 
  135.     if ( w != NULL )
  136.     {
  137.         DisposeTerm( (*w)->theTerm ) ;
  138.         IgnoreOSErr( AEDisposeDesc( &(*w)->theWhoseInput )) ;
  139.         DisposeHandle( (Handle)w ) ;
  140.         /* don't dispose of whose value, it is an end product! */
  141.     }
  142. } /*DisposeWhose*/
  143.  
  144.  
  145.     /*———————————————————————— DisposeObj ————————————————————————*/
  146.  
  147. void
  148. DisposeObj( Object o )
  149. /*disposes of object records in comparison Handles*/
  150.  
  151. {
  152.     if ( o != NULL )
  153.     {
  154.         HLock( (Handle) o ) ;            /* AEDisposeDesc may write back, so don't let it move */
  155. //        WITH o** DO                        /* ...and as long as we're locking... */
  156.         {
  157.             ObjRecordPtr op = *o ;
  158.             DisposeObj( op->objContainer );
  159.             DisposeWhose( (Whose)op->objTheWhose );
  160.             IgnoreOSErr( AEDisposeDesc( &op->objSelectionData )) ;
  161.             IgnoreOSErr( AEDisposeDesc( &op->theObjInput )) ;
  162.  
  163.             /* objValue is sometimes a token, sometimes not.  eg in the case where
  164.               we are comparing a word with text obj2 has the text as its value. */
  165.  
  166.             if ( op->objRedo )
  167.             {
  168.             if ( !op->valIsExmn )
  169.                 IgnoreOSErr( iAEDisposeToken( &op->objValue ) ) ;
  170.             }
  171.             else if ( ! (op->objClass == typeToken) )            /* test added 4/4 as part of ccnt conversion */
  172. //                IgnoreOSErr( AEDisposeDesc( &op->objValue ) ) ;
  173.                 IgnoreOSErr( OSLDisposeToken( &op->objValue ) ) ;
  174.  
  175.         }
  176.         DisposeHandle( (Handle) o ) ;
  177.     }
  178. } /*DisposeObj*/
  179.  
  180.  
  181. ////////////////////////////////////////////////////////////////////////////////
  182. // iAEDisposeToken
  183. // if the app calls disposeToken and there is no such proc, it should return
  184. // an error -- NoSuchProcErr toka.  But if I call it and there is none,
  185. // AEDisposeDesc should be called instead.  Best solution for now is not
  186. // to treat the absence of a proc as an error; just default to disposeDesc().
  187. ////////////////////////////////////////////////////////////////////////////////
  188.  
  189. static OSErr
  190. TryOneProc( GlobalRecHandle aGlobalRef, OSLToken *theDesc )
  191. {
  192.     OSErr err = errAENotASpecialFunction ;        // with "|" below, fixes LLD-UPG-8 }
  193.     if ( aGlobalRef != NULL )
  194.     {
  195.         OSLDisposeTokenUPP aProcPtr = (*aGlobalRef)->diposeTokenProcPtr ;
  196.         if ( aProcPtr != NULL ) 
  197.             err = CallOSLDisposeTokenProc(aProcPtr, theDesc);
  198.     }
  199.     return err ;
  200. }
  201.  
  202.  
  203. pascal OSErr
  204. iAEDisposeToken( OSLToken *theDesc ) // Directly from Ed's stuff; not a word changed }
  205. {
  206.     OSErr err ;
  207.         
  208.     if ( theDesc->descriptorType != typeNull )
  209.     {
  210.         err = NewCallDisposeToken(theDesc);
  211. //        err = TryOneProc( GetGlobalRef(), theDesc ) ;
  212.         if ((err == errAEEventNotHandled)
  213.                 || (err == errAENotASpecialFunction) ) 
  214.             err = TryOneProc( GetSysGlobal(), theDesc ) ; // not there? then try the system-wide one
  215.         if (( err == errAEEventNotHandled)
  216.                 || (err == errAENotASpecialFunction) ) 
  217.             err = AEDisposeDesc( theDesc ) ;        // <eeh> here is err where i=166 from command-2
  218.     }
  219.     else
  220.         err = noErr ;
  221.  
  222.     return err ;
  223. } // iAEDisposeToken
  224.  
  225.